home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0498.dms / q0498.adf / DOSCOPY < prev    next >
Text File  |  1992-06-07  |  324b  |  16 lines
  1. *
  2. * PCL DosCopy Fast Copier...
  3. * (c)1992 BSI Labs
  4. *
  5. cpytitla:dc.b "Lockpick Fast Copier Request",0
  6. cpyquesa:dc.b "Copy any more disks?",0
  7.  
  8. connect=drives()
  9. cmp connect,-1,0,goto fini
  10.  
  11. nextdisk:returnvar=fcopy(connect,-1)
  12. cmp returnvar,0,-1,goto fini
  13. docopy=simplereq(cpytitla,cpyquesa)
  14. cmp docopy,0,1,goto nextdisk
  15. fini:end
  16.